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ALL RIGHTS RESERVED. 
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Facility: rms32 


Abstract: ‘ P 
this module performs a $put for the sequential file 
organization on a unit record device. 


star processor running starlet exec. 


Author: L F Laverdure, creation date: 17-FEB-19-77 


; Modified By: 


v03-004 JEJ0001 J E Johnson 27-Feb-1984 
Correct the mienenet Sag of the fixed control field in 
VFC process permanent files when accessed across the network. 


v03-003 JAKO131 J A Krycka 06-Feb-1984 
Fix bug preventing return of RFA for network access. 


v03-002 KBT0145_ Keith B. Thompson 20-Aug-1982 
Reorganize psects 


yv03-001 KBT0083 
Clean up psects 
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=SEP-1984 16:23:40 (CRMS.SRCIRMIPUTREC.MAR;1 
Fix a broken branch by changing a BRW MOVDAT! to a JMP. 


RASO052 Ron Schaefer 15-Dec-1981 

Fix carriage control for stm files, and non-CCL devices. 
REFORMAT Maria del C. Nasr 24-Jul-1980 
JAKO033 SJ A Krycka 4-JAN-1980 


11:00 
Perform appropriate carriage control handling for network 
process permanent files. 


CDS0062 C D Saether 7-DEC-1979 13:50 
return second longword iosb in stv of rab 
PSK0001 P S$ Knibbe 23-NOV-1979 12:30 


set irab end of file bit on foreign magtape put 


CDS0030 C D Saether 11-SEP-1979 16:15 
stop breaking up records to terminals also 


C0S0027 C D Saether 18-AUG-1979 00:55 
put to unit record device goes straight from user buffer 
terminals are only device where records get broken up 


JAKO0015 ycka 15-DEC-1978 11:00 
Fix network bug thet “Grane first character of record for 
files with fortran carriage control. 
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v04 RMSHAPFIN = ROUTINE TO CONVERT FROM FIN eT 90: 3iL0 RMS .SRCIRMIPUTREC.MAR; 1 . dh 
! ] ‘ -SBTTL RMSMAPFIN = ROUTINE TO CONVERT FROM FIN TO PRN FORMAT 
1 1 p++ 
1 1 8 ; RMSMAPFIN = This routine converts the fortran carriage control 
1 1 § character in RO into the equivalent pre/post carriage 
; 179 ; control word. 
O12 142 : Calling sequence: 
01 128 ; . 
3 144 ; bsbw rm$mapftn 
BE 
; inputs: 
883 123 3 
001 148 ; r0 fortran carriage control character 
001 149 ; 
001 150 ; outputs: 
001 151 ; 
Bat 13 ; r2 pre/post carriage control word 
Oot 13 3; note: this routine always succeeds. no other registers destroyed. 
001 136 j= 
001 15 
001 158 RMSMAPFIN:: 
52 EB AF QE 001 159 MOVAB B*CCTL_TABLE,R2 ; addr of mapping table 
82 50 91 p28 160 10$: RO, (R2T+ : match on char? 
OA 13 001 161 BEQL MAPCTL 3; branch if yes 
8 B5 0018 16¢ TSTwW (R2)+ ; bump to next entry 
F 12 001D 16 BNEQ 10$ 3; continue if more 
OO1F 164 
OO1F 165; 7 
OO1F 166; no match = give default of Line feed before, cr after 
OO1F 167 ; 
OO1F 168 
001F 169 ASSUME IRBSB_POST_ CCTL EQ IRB$B_PRE_CCTL+1 
52 8001 8F BO OOI1F 170 MOVW #1+<<T28+CR>a8>,R2 ; lf=rec-cr 
05 0024 £4171 RSB 
0025 7 
0025 173; 
0025 174 pick up pre and post cctl from table 
0025 175 ; 
0025 176 
52 62 860 0025 £177 MAPCTL: MOVW (R2),R2 3; get pre and post 
05 0028 i78 RSB 


S32 


TREC INTERNAL UT SES 
- RMSPUT_UNI %_R2 


eS 
FOR UNIT RECORD DEVICE 1 mi ae} 4 90: 2:54:11 VAX/VMS Macro V04-00 
P=1984 16:23:40 (CRMS.SRCIRMIPUTREC.MAR; 1 


-SBTTL RMSPUT_UNIT_REC 

:"Rmsput UNIT_REC = This routine performs a $PUT to a unit 
fecord d device, setting carrie e control as required 
and handling crossing of block boundaries. 

; Calling sequence: 
bsbw rm$put_unit_rec 

; ; Input Parameters: 


rij impure area pointer 

r10 ifab addr 

r9 irab addr 

r8 rab addr 

r6 user record size 

r5 user record addr (first block probed) 


; Implicit Inputs: 
the contents cf the rab and related irab and ifab. 
: ; Output Parameters: 


r0 status code 
ri-r7? destroyed 


; Implicit Outputs: 


The RAB and the internal structures are updated to reflect 


: the results of the put. (see functional spec). 
: ; Completion Codes: 
; standard rms. 
; Side Effects: 
none 
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yo4-000 RMSPUT_UNIT_REC mers 90: 3:40 CRMS.SRCJRMIPUTREC.MAR; 1 . (8) 
4 5 RMSPUT_UNIT_REC:: 
§ STSTPT PUTREC1 
54 20 4 if F nove RBSL_CURBDB(R9) ,R4 3; get current bdb addr 
54 3C a9 OD § MOVL IRBSL_NXTBDB(R9) ,R4 3 so use nxtbdb instead then 
3 4 9 p++ 
si 4 ; determine required carriage control 
0039 5 ; 4 types of carriage control may be specified: 
039 § 3 none = record 
039 H fab$v_cr = lf-record-cr 
039 8 ; fab$v_ftn = Ist char of record determines, as follows: 
0039 9; space = lf = record - cr 
0039 40 ; 0 = lf,lf - record - cr 
0039 41; 1 = ff - record - cr 
i ¢g 3 $ = Lf = record 
0039 43 ; + = record - cr 
0039 44 ; null = record 
0039 45 ; other = Lf = record - cr 
0039 46 ; fab$v_prn = print file carriage control specified in vfc header 
0039 47 ; as a pre and post field indicating carriage control 
0039 48 ; to be performed before and after printing the 
0039 249 ; record. the pre and post carriage control bytes 
3 ave the following format: 
0039 50 h he following f 
0039 $82 bit 7 = 0 
0039 o ; bits 6-0 give # of new Lines 
0039 54; bit 7 =1 
ae Me 5 og 
0039 57; bits 4-0 give the ascii control character 
34 58 ; to print (cO set 
0039 59 ; bit 5 = 1 
0039 60 ; bits 4-0 give the ascii control character 
0039 $61 ; to print (cl set) 
0039568 bits £0 
0039 64 ; bits 4-0 have device-specific interpretation 
0039 366 ; bit get” 
0039 67 ; (reserved) 
84 68 ; 
0089 570° 
0039 71 ASSUME IRBS$B_POST_CCTL EQ IRBSB_PRE_CCTL+1 
039 ie ASSUME IMPS$W"RMSSTATUS EQ 
039 7 ASSUME IMP$V_IIOS EQ 0 - 
OD £0 0039 74 10$: BS #DEVSV_NET,- 3; If we are a net device, : 
04 6A 038 75 ree PRIM_DEV(R10),15$ ; then force some ccl device processing 
01 =€1 bee 6 BBC #DEV = ; no cctl if not ccl device 
7B 6A O3F 7 IFBSL_PRIM_DEV(R10) ,MOVDAT1 ; ; 
% Ads «BG Oe) 8 15$: CLRW IRB$B_PRE_CCTL(R9) : initialize (null carriage ctl) 
52 1 AA 0 Oo48 4 MOVB IFBSB_RATTRIO) ,R2 ; get rat for file 
4 81 ; 
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v04 RMSPUT UNIT REC ~SEP-1984 16:23:40 CRMS.SRCIRMIPUTREC.MAR; 1 wh 
4 ; for a network $put function, determine pre and post carriage control only if 
4 : : it is a recess permanent file in print file fornet. : 
4 4 ; note: this avoids fortran carriage control processing for network 
4 5 3 non-process permanent files at the local node which is correct 
4 § : because the gerevege ontrol character must be passed to the 
Be : : remote fal where it will be handled. 
4 . 
09 6A OD €E1 bé 90 BBC #DEVS$V_NET, (R10) ,20$ i; branch if not network access 
69 E8 004C 91 BLBS (R11) ,MOVDAT ; branch if not ppf 
65 52 0 El O04F 36 BBC #F ABSV_PRN,R2,MOVDAT ; branch if not a ‘print’ file 
11 b33 g BRB : process pre/post carriage control 
0D 52 ie } 94 208: BBC #F ABSV_PRN,R2,NOTPRN ; branch if not a ‘print’ file 
d ; branc not pp 
41 68 €8 0059 95 BLBS (R11) ,PRNFMT b h if f 
Be Bs 
bose 98 ; this is a process-permanent print file. 
3 extract rat value from isi. 
005C 99 tract rat value f isi 
Dose 301 | 
52 02 a8 08 06 EF 003¢ 0¢ 30$: EXTZV.  #RABSV_PPF_RAT, #RABSS_PPF_RAT,RABSW_IS1I (RB) ,R2 
37 52 EO 006 0 BBS #FABSV_PRN,R2,PRNFMT ; branch if print format 
O066 305 
; check for cr, ftn, or no carriage contro 
0066 06 heck f f i l 
Dose 308 
45 52 01 EO 0066 09 NOTPRN: BBS #FABSV_CR,R2,LF_REC_CR ; branch if ‘cr’ 
006A 310 ASSUME FABSV FIN EQ 0 . 
22 52 E8 OO06A 11 S R2,F TR_REC ; branch if FIN cctl 
ae 
; mull carriage control. do nothing unless s a stream file. 
443 i LL i trol d hi t it’ fil 
0060 316° 
006D 17 ASSUME FABSC_STM+1 EQ FABSC_STMLF 
006D 18 ASSUME FABSC_STMLF+1 EQ FABSC_STMCR 
006D 319 ASSUME FABS$C~ FABSC_MAX 
50 aA 91 8598 31 CMPB be Mash a halide ; stm file? 
45 Ff Sort ¢ BLSSU OVDAT™ 3 nope, proceed 
56 3 Boos § TSTW 6 3; zero Len record 
38 7 4 BEQL LF_REC_CR ; needs a terminator 
32 ge 077 5 PUSHR #*A<R17R4,R5> 3 save size, record and buff addr 
51 FF A546 3 079 6 MOVAB -1(R5)(R64,R1 3; setup for term check 
50 O01 OD O7E 7 MOVL #1,R 3; check only Last char 
54° 50 AA 9A 0081 8 MOVZBL IFBSB_RFMORG(R10).R4 =: get format type 
eee 30 0085 9 BSBW RMSSTA_TERM ; check for terminator 
: BA 0088 0 POPR #*M<R1,R4,R5> 3 restore regs 
28 50 8 QO08A 1 BLBS RO,MOVDAT ; already have a terminator 
20 1 08D ¢ BRB LF_REC_CR ; add one 
Oar 334 
a é ; fortran carriage control. pick up control byte and interpret. 
F 
56 «D5 a8 8 FIN REC: TSTL R6 ; zero length record? 


RMIPUTREC 
V04- 
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er 
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SEP-1984 RMS .SRCIRMIPUTREC.MAR; 1 
; branch if yes (same as blank) 
; decrement size 

MOVB (R5)+,R0 i; get fortran cctl byte 

BSBW  RMSMAPFIN : and map to pre/post format 

BRB MOVPREPOST 


BEQL LF_REC_CR 


: "pent carriage control. 
; record header buffer contains explicit ‘standard’ carriage control. 


50 2c “ 09 3; get record header buffer addr 
1 1 L ; Branch if none (=null cctl) 
IFNORD #2,(RO),ERRRHB ; branch if rhb not readable by caller 
64 09 60 80 MOVW (RO), IRBS$B_PRE_CCTL(R9) : set carriage control 
09 = =«11 BRB MOVDAT 
Boar : line feed before, carriage return after record 
OOAF : 
OOAF LF_REC_CR: 
52 8001 8F BO OOAF MOVW #1+<<128+CR>a8>,R2 3 convert to pre/post format 


MOVPREPOST: 
MOVW R2,IRBSB_PRE_CCTL(R9) ; save in irab for print 


OOOOCCoCOoQOQoooOoooooeoeo ~—2Zz 
COOCCCCOCOCOCOOOOCOCOOCSCOoO 1 
>>rrrr>,r SSSSSSS3BSE—FE 
- RHO OW-CVCVCCTVTVTCWouNN9 < 
WWAAAINIA. A. AHH. AANA. AANA 


SE 
EC 
39 
40 
2) 
é 
44 
$2 
ie 
is 
QO PRNFMT: MOVL RABSL_RHB(RB),RO 
; Q MOVDAT 
: 
f 
58 
59 
60 
e 
é 
64 


64 A9 52 BO 00B4 
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v04 RMSPUT_UNIT_REC -SEP-1984 :40 CRMS.SRCIRMIPUTREC.MAR; 1 (7) 


RMSERR RHB 
BRB EXIT 


¢ | 
B 3 
: $3 ; move data record into buffer 
° | 
8 4 MOVDAT: 
35 6A 3E €0 8 i #IFBSV_DAP,(R10),.NTMOVE ; branch if network file access 
OBC 73 MOVDAT1: ; return from ntmove 
4C AG ra. = gee 74 MOVL R5,BDB$L_CURBUFADR(R4) ; addr of buffer to put from 
14 AG 6 6B 5 75 MOVW R6,BDBSW-NUMB (RS 3 size to put 
64 a9 «8B C4 i: Vw IRB : PRE CCTL(R9), = 
4A AG 34 ? BDBSB_PRE_CCTL(R4S ; reset carriage control 
re | C9 4 BSBW RMSSEQQTUR ; put the record 
15 9 E ce 7 BLBC RO,EXIT 
05 €1 OOCF 80 BBC #bEVSV_sap, = 
08 6A B90 1 IFBSL_PRIM_DEV(R10),10$; branch if not magtape 
18 =««€1 oe Hf} BBC #DEVSV_FOR,= 
04 6A 00D 8 IFBSL_PRIM BEVCRI0). 108; branch if not foreign 
0007 Se SSB #IRBSV-EOF , TRI) set end of file bit 
0c AB «610 ADs 0008 5 10$:  MOVL  IRBSL_TOS4(R9) ,RABSL =S1ViRB) 
QOE 36 y 2nd longword iosb to stv 
03 6A 3 0 0Q0E0 8 BBS #IFBSV_DAP,(R10),EXIT1 t hack if network access 
10 A C O0E4 88 EXIT:  CLRQ RABSL_RFAO(RE) 3 zero rfa 
FFI6* 31 tH 34 XIT1: BRW RMSEXRMS 
SOR Son 3 
QOEA 38 3 handle bad record header buffer error 
OQOEA 94; 
OOEA 95 :-- 
OOEA 96 
OOEA 4 
9 
0 


QOEA 
F311 QOEF 
OOF 1 
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network specific code to move record header (if vfc format) and data 
record into one bdb buffer. note: size of header + record can not 
exceed device buffer size ( = bdb buffer size) for this release!!! 


E 
C 
Fl 4 
Fi o08 
Fi 404 
Fi 405 
Fl 364 § 
Fi 4 
OF? 4&4 $ 
OF1 4 
OF1 410 
OF! 411 NTMOVE 
OF1 tis 
Ber 413 ; 
Fl 414 ; check to see if record plus header fit 
OOF1 415 ; ifb$b_fsz is zero for non-vfc record types 
gang 
50 SF AA 9A OOF 418 MOVZBL IFBSB_FSZ(R10),RO ; fixed size into r0 
50 56 AO OOFS 419 ADDW2 R6,RO 3; total size in r0 
4D 1D OOF8 420 BVS 3 : error if overflow on add 
16 AG 3 B1 OOFA 421 CMPW RO ,BDBSW_SIZE(R4) ; fit in buffer? 
4 1A OOFE 4 ; BGTRU 35$ : error if record larger 
54 DD 8103 4 PUSHL R4 3; save bdb addr 
53 18 AS DO 010 424 MOVL BDBSL_ADDR(R4) ,R3 ; addr of buffer to move to 
50 AA 91 «(20106)«= 425 CMPB =—s I FBS$B-RFMORG(R10) , - 
03 0109 426 #FABSC_VFC ; is this vfc rec? 
29. 12 OWA 427 BNEQ 208 3 go move it 
010C 428 
010C 429 ; 
Bie ¢39 ; move header and record into one buffer and put as one record 
Bee $38 
7. 0 010C 43 MOVL R3,R7 ; save bdb buffer address 
ee D O10F eee mova R5,-(SP) 3 push rec addr and size onto stack 
26 SF AA 9A 0112 435 MOVZBL IF B$B_FSZ(R10) ,R6 3; size of record header 
5 2c AB «20 60116 = 436 MOVL RAB$L_RHB(R8) ,R5 ; address of header buffer 
38 428613 «O11A (437 BEQL 50$ ; branch none spec'd 
ree 30 O11C $38 BSBW RMSPROBEREAD 3; check out header buffer 
2c 50 9 OTF 439 BLBC 00.409 ; branch if problems 
63 65 56 8 4 2 440 MOVCS R6,(R5),(R3) ; move header part 
55 BE D O1 g 441 10$: MOVQ (SP)+,R5 3 rec addr to r5, rec len to r6 
09 6B «=«2«EB SCé«O1 Pk BLBS (R11),208 > branch if not ppf 
0451 AA O02 €1 ot C 46 BBC #F ABSV_PRN, IFBSB_RAT(R105 ,20$ 
131 39444 ; branch if not a ‘print’ file 
67 64 A9 BO Q131 445 MOVW IRBSB_PRE_CCTL(R9),(R7) ; jam pre/post carriage control into 
1 : res, : record header if ppt and prn set 
63 65 56 28 Q1 447 208: MOVCS R6,(R5),(R3) 3; move record beyond header 
54 BE DO 0139 448 MOVL (SP)+,R 3 get back bdb addr 
55 18 AG 4 13¢ 0 = 449 MOVL BOSH, .APORCAS) LR 3; addr of buffer to r5 
5 $2 § 140 450 SUBL3 = R5,R5,R6 ; total length in ré 
FF75) 310144 451 BRW MOVDATI : rejoin mainline 
147 $26 
147 «45 
147 454 ; error handling 
147 +455; 
147 $26 
147 «45 
14C = 458 


96 #11 


RMSERR RSZ 
BRB EXIT 


record too big 
exit 
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POPR 
RMSERR 
BRB 
MOVCS 
BRB 


END 


#*M<RO,R1,R2> 
RHB 
EXIT 


#0, (R3) ,#0,R6, (R3) 
10$ 
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; clean off stack = not same regs 
; 7 access rhb 
; ex 


; supply zero record header 


RM 
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$$.PSECT_EP 
SSRMSTEST 
SSRMS_PBUGCHK 
SSRMS- “TBUGCHK 

S“UMODE 
BOBS “PRE_CCTL 
BDBSL ~CURBUF ADR 
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BDBSW-SIZE 
L_TABLE 


CR 
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MOVPREPOST 
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PIO$A_TRACE 
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RABSV- PPE RAT 


: 


i 


folololeo) 
OOOOCOOCOoooe 


OOoOOOCCOOCOOoOOOCOOOOOOCOOOOOOCOOOOoOSoO 
SOoOoooooooooooooo 
ODoOOCCOCOOSOSOOOSOSOSOSOSOOSOSOOSOOSOOSOOSOOSoSOO 


So 
So 
oS 


So 

So 

= 
OOOOCCOCOCOOOoCoooooooooooooooooooo 


So 
So 
So 
So 


gereeene 


0000009D 
000010 


Dp 2DBDADAVAD 


01 


ooo 
—— 


01 


foleleleleleoleleoloa) 
2 See 


¢ 8 
INTERNAL PUT SEQ FOR UNIT RECORD DEVICE 


RABSW_ISI 
M$ 


RMSSTM TERM 
RAB 

RMSE “RS? 

SPAC 

TPTSL_PUTREC1 
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teereres 
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600) 66C 
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' Psect synopsis ! 


tome aereacn ecw e cee + 


PSECT name Allocation PSECT No. Attributes 

» 8S « 00000000 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL ate NOEXE NORD NOWRT NOVEC BYTE | E 
RMSRMS1 QOOOO1SF ¢ 351.) O01 ¢ 1.) PIC USR CON REL OGBL NOSHR EXE RD NOWRT NOVEC BYTE 

SABSS 00000000 «¢ 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE ee 
tower en een eee ete ee ee wnenree + EX 
' \ Performance indicators ! fp 
FA 
Phase Page faults CPU Time Elapsed Time yr 
Initialization 30 00:00:00.08  00:00:00.85 Fl 
Command processing 109 60:00:00. 78 0:00: 204.18 IF 
307 00:00:09.9 80:09; 0.44 IF 
Synbol table sort 0 00:00:01.31 90:00:08.3) IF 
s 2 89 Op RD 06 + Ba 00:00:05.09 IF 
oan table output 8 00:00:00.09 00:00:00.64 IF 
Psect synopsis output 2 00:00:00.02 00:00:00.08 IF 
Cross-reference output 9 00:00:00.00 90:00:09.00 IF 
Assembler run totals 54 00:00:14.24 00:00:43.59 4 
The working set Limit was 1500 pages. a 
There were 60 pages of symbol table space allocated to hold 1066 non-local and 12 local symbols. LE 


467 source Lines were read in Pass 1, producing 14 object records in Pass 2 
3 pages of virtual memory were used to define 22 macros. 


Macro _tibrary name Macros defined 
“$255$DUA28: + OBJJRMS.MLB; 1 11 
“$255$DUA28:(SYS.OBJJLIB.MLB; 1 2 
“$255$DUA28: eye. IBISTARLET. MLB;2 5 

TOTALS (all Libraries) 18 


1176 GETS were required to define 18 macros. 


| 

| 

56424 bytes (111 pages) of virtual memory were used to buffer the intermediate code 
| 

There were no errors, warnings or information messages. 
| 
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